home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / pkey12_1.zip / GF.LSP < prev    next >
Text File  |  1992-09-13  |  639b  |  21 lines
  1. ;Call a new drawing up from acad, must specify full path name
  2. ;
  3. ;
  4. (SETQ nn(GETSTRING "\nEnter name of drawing to call into design session: "))
  5. (setq ss(getstring "\nDo you want to save current session: <Y>"))
  6.     (if(= ss "Y")(setq ss "end"))
  7.     (if(= ss "y")(setq ss "end"))
  8.     (if(= ss nil)(SETQ ss "end"))
  9.     (if(= ss "")(SETQ ss "end"))
  10.     (if(= ss "n")(SETQ ss "quit y"))
  11.     (if(= ss "N")(SETQ ss "quit y"))
  12. (setq scr "get_it.scr")
  13. (setq txt(open scr "w"))
  14. (setq start "\n2")
  15. (setq fnme(strcat "\n" nn))
  16. (princ ss txt)
  17. (princ start txt)
  18. (princ fnme txt)
  19. (princ "\n" txt)
  20. (close txt)
  21. (command"script""get_it")